home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 2 / CU Amiga Magazine's Super CD-ROM 02 (1996)(EMAP Images)(GB)[!][issue 1996-04].iso / magazine / amiga_e / amigae.june.archive / 000039_crash!netcom.com!qed!aga_Wed, 9 Jun 93 20:30:11 PST.msg < prev    next >
Text File  |  1993-08-31  |  2KB  |  52 lines
  1. Received: by bkhouse.cts.com (V1.16/Amiga)
  2.     id AA00000; Wed, 9 Jun 93 20:30:11 PST
  3. Received: from netcomsv.netcom.com by crash.cts.com with smtp
  4.     (Smail3.1.28.1 #15) id m0o3a7k-0000JyC; Wed, 9 Jun 93 17:04 PDT
  5. Received: from qed.UUCP by netcomsv.netcom.com with UUCP (4.1/SMI-4.1)
  6.     id AA08086; Wed, 9 Jun 93 17:04:30 PDT
  7. Received: by qed.UUCP (smail2.5)
  8.     id AA08782; 9 Jun 93 12:14:22 PDT (Wed)
  9. Comments: n
  10. Message-Id: <iV6V5B2w165w@qedbbs.com>
  11. Date: Wed, 09 Jun 93 12:12:29 PDT
  12. Organization: The QED BBS, Lakewood CA
  13. From: aga@qedbbs.com (Peter Dilley)
  14. To: amigae@bkhouse.cts.com
  15. Subject: Thanks Barry
  16.  
  17. PROC main()
  18. DEF a,b
  19.         WriteF ('Enter something > ')
  20.         a := Inp (stdout) /* in C it seems to be stdin */
  21.  
  22.         /*---------------------------------------------------------------*/
  23.         /* Try this:                                                     */
  24.  
  25.         WHILE Inp (stdout) <> 10 DO NOP  /* Flush the input buffer. */
  26.  
  27.         /* If you only want to get one character, do this.  10 is the    */
  28.         /* decimal ascii code for the line-feed character, which is left */
  29.         /* in the input buffer after pressing return.   This gets rid of */
  30.         /* it.  Incidently, Peter, you can Inp() a whole string at a     */
  31.         /* time using a loop, checking the value to tell when the end of */
  32.         /* input has been reached.                                       */
  33.         /*---------------------------------------------------------------*/
  34.  
  35.         WriteF ('You entered \c\n', a)
  36.  
  37.         WriteF ('Enter something else > ')
  38.         b := Inp (stdout)  /* ditto */
  39.         WHILE Inp (stdout) <> 10 DO NOP  /* Flush the input buffer. */
  40.         WriteF ('You now entered \c\n', b)
  41. ENDPROC
  42.  
  43.  
  44.  
  45.  
  46. Thanks Barry. I had trouble mailing the list so all I could do was 
  47. responds. Until I found out I wrote the mailing address down wrong :-D
  48.  
  49.  
  50. ------------------------------
  51. aga@qedbbs.com (Peter Dilley)  or  qed!aga
  52. The QED BBS -- (310)420-9327